home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / biz / cloan / pio_icon.lha / pio_icon / LoadOutLineBrush.pprx next >
Text File  |  1997-09-22  |  2KB  |  77 lines
  1. /* Personal Paint Amiga Rexx script */
  2. /* by E.Plischke  */
  3.  
  4. /* $VER: LoadOutlineBrush.pprx 0.0 */
  5.  
  6. /** ENG
  7.   This script loads a brush with a rectangular border.
  8. */
  9.  
  10. /** DEU
  11.   Dieses Skript lädt einen Pinsel mit rechteckiger Umrahmung.
  12. */
  13.  
  14. IF ARG(1, EXISTS) THEN
  15.     PARSE ARG PPPORT
  16. ELSE
  17.     PPPORT = 'PPAINT'
  18.  
  19. IF ~SHOW('P', PPPORT) THEN DO
  20.     IF EXISTS('PPaint:PPaint') THEN DO
  21.         ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  22.         DO 30 WHILE ~SHOW('P',PPPORT)
  23.              ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  24.         END
  25.     END
  26.     ELSE DO
  27.         SAY "Personal Paint could not be loaded."
  28.         EXIT 10
  29.     END
  30. END
  31.  
  32. IF ~SHOW('P', PPPORT) THEN DO
  33.     SAY 'Personal Paint Rexx port could not be opened'
  34.     EXIT 10
  35. END
  36.  
  37. ADDRESS VALUE PPPORT
  38. OPTIONS RESULTS
  39. OPTIONS FAILAT 10000
  40.  
  41. Get 'LANG'
  42. IF RESULT = 1 THEN DO        /* Deutsch */
  43.     txt_err_oldclient = 'Für dieses Skript_ist eine neuere Version_von Personal Paint erforderlich'
  44. END
  45. ELSE IF RESULT = 2 THEN DO        /* Italiano */
  46.     txt_err_oldclient = 'Questa procedura richiede_una versione più recente_di Personal Paint'
  47. END
  48. ELSE DO     /* English */
  49.     txt_err_oldclient = 'This script requires a newer_version of Personal Paint'
  50. END
  51.  
  52. Version 'REXX'
  53. rxver = RESULT
  54. IF rxver < 7 THEN DO
  55.     RequestNotify 'PROMPT "'txt_err_oldclient'"'
  56.     EXIT 10
  57. END
  58.  
  59. /* I'm no REXX wizard */
  60.  
  61. LockGUI
  62. Get TRANSP
  63. trans = RESULT
  64. GetPen FOREGROUND
  65. pen = RESULT
  66.  
  67. Set 'FORCE "TRANSP=0"'
  68. /* use color 1 to avoid depth conflicts between brush and image */
  69. SetPen "FOREGROUND=1"
  70. LoadBrush
  71. /* select one of SIMPLE SQUARE SHADOW 3D TRIM */
  72. OutLineBrush 'SQUARE'
  73. Set 'FORCE "TRANSP='||trans||'"'
  74. SetPen "FOREGROUND="||pen
  75. UnlockGUI
  76.  
  77.